home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / gfindxxx.lha / GFindXXX / make259 < prev   
Text File  |  1996-04-22  |  4KB  |  75 lines
  1. ;
  2. ; Compile the net259 homepage
  3. ;
  4.  
  5. failat 21
  6.  
  7. pcd at:www/x
  8.  
  9. ; buildup list of nodes in 2:259
  10. gfindxxx >RAM:259t n 2:259/* #? lformat="%t<TR><TD>%S<TD> %3<TD> <A HREF=%qmailto:%g.fido.zetnet.co.uk%q>%s</A><TD> %l<TD> %O<TD> %i" quiet
  11.  
  12. ; Sort the list
  13. sort RAM:259t RAM:259t
  14.  
  15. ; Join parts and add update date...
  16. type fido259h.html >RAM:fido259.html
  17. type RAM:259t >>RAM:fido259.html
  18. echo "</TABLE><P>Table last updated " >>RAM:fido259.html NOLINE
  19. echo `date` >>RAM:fido259.html
  20. echo ", using " >>RAM:fido259.html NOLINE
  21. echo `dir nodelist:nodelist.???` >>RAM:fido259.html
  22. echo "</P>" >>RAM:fido259.html
  23. type fido259t.html >>RAM:fido259.html
  24. delete RAM:259t QUIET
  25.  
  26. ; bit more speed...
  27. copy SC:C/splat RAM:
  28. cd RAM:
  29.  
  30. ; Troublesome node name ;)
  31. splat -o "\x3e Ultraworld \x3c" "Ultraworld" fido259.html
  32.  
  33. ; Remove housekeeping nodes
  34. splat -o "<TR><TD>Aberdeen Hub<TD> 2:259/300<TD> <A HREF=*"mailto:iain.sherrit@f300.n259.z2.fido.zetnet.co.uk*">Iain Sherrit</A><TD> Aberdeen<TD> 44-1224-709833<TD> 24hr" "<!-- Aberdeen Hub 2:259/300 -->" fido259.html
  35. splat -o "<TR><TD>Livingston Hub<TD> 2:259/400<TD> <A HREF=*"mailto:walter.hampson@f400.n259.z2.fido.zetnet.co.uk*">Walter Hampson</A><TD> Livingston<TD> 44-1506-493620<TD> 24hr" "<!-- Livingston Hub 2:259/400 -->" fido259.html
  36. splat -o "<TR><TD>Scottish Net<TD> 2:259/0<TD> <A HREF=*"mailto:frank.peterson@f0.n259.z2.fido.zetnet.co.uk*">Frank Peterson</A><TD> Friockheim<TD> 44-1241-828793<TD> 24hr" "<!-- Scottish Net 2:259/0 -->" fido259.html
  37. splat -o "<TR><TD>Glasgow Hub<TD> 2:259/100<TD> <A HREF=*"mailto:peter.waddell@f100.n259.z2.fido.zetnet.co.uk*">Peter Waddell</A><TD> Glasgow<TD> 44-1416-327568<TD> 24hr" "<!-- Glasgow Hub 2:259/100 -->" fido259.html
  38.  
  39. ; Add BBS homepages
  40. splat -o "Mlv's Mailer" "<A HREF=*"http://www.wintermute.co.uk/users/mlv/*">Mlv's Mailer</A>" fido259.html
  41. splat -o "Renegade BBS" "<A HREF=*"http://www.scms.rgu.ac.uk/students/cs_yr92/ra/Rene1.html*">Renegade BBS</A>" fido259.html
  42. splat -o "The Cookie Jar" "<A HREF=*"http://www.dcs.napier.ac.uk/~bsc117*">The Cookie Jar</A>" fido259.html
  43. splat -o "Touchdown BBS" "<A HREF=*"http://www.netlink.co.uk/users/greenock/ian/ian.html*">Touchdown BBS</A>" fido259.html
  44. splat -o "Matt's Mailer" "<A HREF=*"http://users.colloquium.co.uk/~cbm_assoc/index.htm*">Matt's Mailer</A>" fido259.html
  45. splat -o "Bell BBS" "<A HREF=*"http://www.bell.ac.uk*">Bell BBS</A>" fido259.html
  46. splat -o "Verities & Balderdash" "<A HREF=*"http://dialspace.dial.pipex.com/peterw/vb.htm*">Verities & Balderdash</A>" fido259.html
  47. ;splat -o "" "<A HREF=*"*"></A>" fido259.html
  48.  
  49. ; Add email addresses
  50. splat -o "mike.henderson@f15.n259.z2.fido.zetnet" "mike@cengine.demon" fido259.html
  51. splat -o "alan.mulvie@f38.n259.z2.fido.zetnet.co.uk" "100566.1444@compuserve.com" fido259.html
  52. splat -o "robin.abecasis@f78.n259.z2.fido.zetnet.co" "mailto:cs4ra@scms.rgu.ac" fido259.html
  53. splat -o "michael.cooke@f18.n259.z2.fido.zetnet.co" "bsc117@dcs.napier.ac" fido259.html
  54. splat -o "peter.waddell@f69.n259.z2.fido.zetnet.co.uk" "peterw@dial.pipex.com" fido259.html
  55. splat -o "david.bryce@f95.n259.z2.fido.zetnet" "david@rsc" fido259.html
  56. splat -o "andrew.dowds@f65.n259.z2.fido.zetnet" "adowds@cix.compulink" fido259.html
  57. splat -o "andrew.dowds@f66.n259.z2.fido.zetnet" "adowds@cix.compulink" fido259.html
  58. splat -o "ian.scott@f67.n259.z2.fido.zetnet" "ian@touchdwn.demon" fido259.html
  59. splat -o "matt.mcqueen@f47.n259.z2.fido.zetnet" "cbm_assoc@cqm" fido259.html
  60. splat -o "brian.keir@f50.n259.z2.fido.zetnet" "brian.keir@nessies.demon" fido259.html
  61. splat -o "dave.macfarlane@f41.n259.z2.fido.zetnet.co.uk" "arrochar@aol.com" fido259.html
  62. ;splat -o "" "" fido259.html
  63.  
  64. ; Finishup
  65. delete splat QUIET
  66. delete >NIL: at:www/fido259.html
  67. copy fido259.html TO AT:www/ QUIET
  68.  
  69. ; And while we are at it, lets archive
  70. cd at:www
  71. delete >NIL: www.lha
  72. lha >NIL: a www.lha #?
  73.  
  74. ; fini, cd back to where we were...
  75. pcd